home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / zc1750e.arc / ADVPHO.T next >
Text File  |  1990-01-21  |  31KB  |  849 lines
  1.     ::rev 8-17-89 for ZCOMM 17.28+
  2.     cls; goto cmdch
  3. ak    lput "\r\n\E[1;5mType space to Continue\E[m"; if y
  4.     lput "\E[2A\E[2K"
  5. busy    speed 1200 putw "ATM0H1\r"
  6. reset    speed 1200; putw "ATZ\r";pat 1 OK; wait -f3
  7. twx    if twxout speed 1200 %s8 f -qxh twxout;o
  8.     else echo " No file to Send. "
  9. att    set l 0; set m "0503"; set alds ",50312345678901,"
  10.     echo "Set for AT&T Calling Card"
  11. ddd    set l "1"; set m "1"; set alds ""
  12.     echo "Set for Direct Distance Dialing (Station to Station)"
  13. tryd    %telno
  14.  
  15.  
  16. waketb    put "\b\b\b"; sleep 3; pat; purgel; kill; pat 1i "A"; pat 9 OK; ena -d
  17.     while "L<5&&!m" mput "A" lput "!" sleep 2
  18.     wait -f2; if !1 while "L<4&&!m" mput "A" lput "@" sleep 3
  19.     if 1 put "TZ\r"; wait -f2
  20.     if 9 goto wak1
  21.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  22.     if 9 goto wak1
  23.     bye
  24.     while "L<9&&!m" mput "A" lput "#" sleep 3
  25.     pat 1i "A"; wait -f2; if !1 while "L<5&&!m" mput "A" lput "$" sleep 3
  26.     if 1 put "TZ\r"; wait -f2
  27.     if 9 goto wak1
  28.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  29.     if 9 goto wak1
  30.     sp 9600 echo "9600 bps"
  31.     bye; br; br; br; while "!9&&L<2" put "ATZ\r"  wait -f1
  32.     if 9 goto wak1
  33.     echo "2400 bps"; sp 2400
  34.     while "!9&&L<3" put "ATZ\r"  wait -f1
  35.     if 9 goto wak1
  36.     echo "1200 bps"; sp 1200
  37.     while "!9&&L<3" put "ATZ\r"  wait -f1
  38.     if 9 goto wak1
  39.     while "!9&&L<10" put "AT\r"  wait -f1
  40.     if 9 goto wak1
  41.     echo "No response From MODEM" dis -Q
  42.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  43.     if 9 goto wak1
  44.     echo "No response From MODEM"
  45.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  46.     if 9 goto wak1
  47.     echo "No response From MODEM: setting 2400 bps"; sp 2400
  48.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  49.     if 9 goto wak1
  50.     echo "No response From MODEM: setting 1200 bps"; sp 1200
  51.     while "!9&&L<20" o sleep 9 bye sleep 9 put "ATZ\r"  wait -f2
  52.     if 9 goto wak1
  53.     echo "No response From MODEM"
  54. wak1:    pat; pat 1i A
  55.     if iMODEM,C2400E sp 2400
  56.     while "L<9&&!m" mput "A" lput "%" sleep 3
  57.     wait -f2; if !1 while "L<9&&!m" mput "A" lput "^" sleep 3
  58.     pat; pat 1l "OK"; put "T\r"; wait -f3
  59.     if !1 putw "AT\r"
  60.     dis -t;  ret
  61.  
  62.  
  63. ::
  64. :: Dial script for most 2400 bps modems uses speed fallback.
  65. ::  Environment variable MODEM checked for:
  66. ::    C2400E    US Robotics Courier 2400E (MNP)
  67. ::    HV96    Hayes V series 9600 bps
  68. ::    MM224    MultiTech 224
  69. ::    MM224E    MultiTech 224E (MNP)
  70. ::    SM1200    Hayes Smartmodem 1200
  71. ::    TB    Telebit TrailBLazer
  72. :: If the call is placed at >300 and <9600 bps, switch to 2400 bps.  Make the
  73. :: call.  If the called modem only supports 1200 or (ugh) 300 bps,
  74. :: the modem will drop back in speed.  The actual connect speed is indicated
  75. :: by a "CONNECT", "CONNECT 1200", or "CONNECT 2400" string.
  76. :: Fallback to 300 bps may be a bit messey, (depending on the answering
  77. :: modem, so a call originated at 300  bps will go out at that speed
  78. ::
  79. ::  It is important to give Xn value with highest possible n, e.g. X4
  80. ::
  81. ::  String vars: s0: original speed   s1:non empty to lock interface speed
  82. ::    s2: Current dial option   s3:Current telno
  83. ::      s4: Remaining alternate telnums    s5: provisional speed
  84. ::
  85. mm224    if "itelno,1" if dX echo "Vritual Channel 1"; return
  86.     if "itelno,2" if dX echo "Vritual Channel 2"; return
  87.     if "itelno,3" if dX echo "Vritual Channel 3"; return
  88.     if "itelno,1" port 1;  set dirrx "";  echo "Port 1"; return
  89.     if "itelno,2" port 2;  set dirrx "";  echo "Port 2"; return
  90.     if "%telno<2" echo "Please do not use \"call mm224\""; abort
  91.     if iMODEM,MM224 if S>2500 sp 2400
  92.     if iMODEM,MM224E if S>9600 sp 9600
  93.     if iMODEM,SM1200 if S>1201 sp 1200
  94.     if iMODEM,C2400E sp 2400
  95.     set? s0 S;  sets s4 %telno
  96. mm2l:    split s4 "+" ""; sets s4 %z1; sets s3 %z0; if %s4 echo "On deck: %s4"
  97.     set s1 ""; split s3 "/" ""; sets s3 %z0; sets s2 %z1
  98.     handshake sw;  pat;  sets s5 "%s0"
  99.     : if dd&&v<1 ena -Q
  100.     echo "PORT = %dport  MODEM = %MODEM  modifier = %s2"
  101.     if iMODEM,C2400E if js2,mnp set s1 "mnp"
  102.     if iMODEM,C2400E if js2,_s set s1 "_s"
  103.     if iMODEM,MM224E if js2,mnp sp 9600; set s1 "mnp"
  104.     if iMODEM,MM224E if js2,_s sp 9600; set s1 "_s"
  105.     if iMODEM,AX9624 if js2,mnp sp 19200; set s1 "mnp"
  106.     if iMODEM,AX9624 if js2,_s sp 19200; set s1 "_s"
  107.     if js2,lock set s1 "lock"
  108.     :::::: if !iMODEM,HV96 if S>3000 if !%s1 set s1 "lock"
  109.     if iMODEM,TB if S>3000 if !%s1 set s1 "lock"
  110.     if iMODEM,TB if js2,mnp sp 9600; set s1 "mnp"
  111.     if js2,1200 sp 1200; set s5 1200
  112.     else if js2,300 sp 300; set s5 300
  113.     else if S==450 sp 300 echo "300 bps"
  114.     else if !%s1 if "S<9500&&S>1201" sp 2400 echo "2400 bps"
  115.     bye
  116.     gosub waketb        :: get modem to respond
  117.     if iMODEM,C2400E sp 2400
  118.     pat; pat 9 OK
  119.     if iMODEM,MM224E if js2,mnp put "AT&E2 &E4 &E15 \44BA0 &B0\r"; wait -f2
  120.     if iMODEM,MM224E if js2,mnp_s put "AT&E2 &E5 &E11 &E15 \44BA0 &B0\r"; wait -f2
  121.     if iMODEM,C2400E if !js2,mnp put "AT&M0 &H0 &R1 &I0\r"; wait -f2
  122.     if iMODEM,C2400E if js2,mnp put "AT&M5 &H1 &R2 &I0 &K1\r"; wait -f2
  123.     if iMODEM,C2400E if js2,mnp_s put "AT&H2 &I1 &R1\r"; wait -f2
  124.     if iMODEM,AX9624 if js2,mnp put "ATX4\\V1\\J0\\A3\\N3\\Q3\r"; wait -f2
  125.     if iMODEM,AX9624 if js2,mnp_s put "ATX4\\V1\\J0\\A3\\N3\\Q1\r"; wait -f2
  126.     put "AT"
  127.     if iMODEM,MM224 if js2,mnp put "&E2 "
  128.     if jMODEM,MM224 if js2,a_mnp put "&E1 "
  129.     if jMODEM,C2400E if js2,a_mnp put "&M4 "
  130.     if iMODEM,TB if is5,300 put "S50=1 "
  131.     if iMODEM,TB if is5,1200 put "S50=2 "
  132.     if iMODEM,TB if is5,2400 put "S50=3 "
  133.     if iMODEM,TB if js2,fast z pW10000;  put "S50=255 S7=50 "; if !%s1 set s1 "lock"
  134.     if iMODEM,TB if js2,mnp put "S95=1 "; set s1 "mnp"
  135.     if iMODEM,TB if js2,a_mnp put "S95=2 "; set s1 "mnp"
  136.     if iMODEM,TB if %s1 put "S66=1 S58=2 " if S==19200 put "S51=5 "
  137.     if iMODEM,TB if js2,_s put "S58=3 "
  138.     if pMODEM,SM put "X3 "
  139.     if "%s3>8" put "S7=70 "        : longer wait if long distance
  140.     put "E1 Q0 S10=10 V1\r"; wait -f2
  141.     put "ATS6=3 S8=1 S0=0\r" wait -f2
  142.     if iMODEM,TB put "ATX3 S68=255 S111=0\r" wait -f2
  143.     if iMODEM,TB if js2,xmodem put "ATS111=20\r" wait -f2
  144.     if iMODEM,TB if js2,kermit put "ATS111=10\r" wait -f2
  145.     if jMODEM,MM224 put "ATX4 &Q0\r" wait -f2
  146.     if !%MODEM put "ATX3\r";  wait -f2    :: Change this for your modem
  147.     if iMODEM,C2400E if %s1 putw "AT&B6\r"; sp 9600
  148.     if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  149.     if %alds if ps3,0 putw "ATS8=10\r"
  150.     put "%mprefix";  put "%s3%alds";  dis -Q
  151.     if js2,man putw ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATO"
  152.     put "\r";  dis -t
  153.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  154.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  155.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  156.     pat 8 "NO DIAL TONE"; pat 10l "CONNECT 300"
  157.     pat 11 "CONNECT 96"; pat 12l "CONNECT 192"
  158.     pat 13 "VOICE"; pat 14 "NO ANS"
  159.     wait -f72
  160.     while "4&&!L>3" wait -f40
  161.     if "n||9||2||3||4||13||14" goto sorry
  162.     dis -d
  163.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  164.     if %s1 if "hCONNECT" ss y "[0-9]+"; estimate 0 z0; echo "Speed Locked"; goto mm2end
  165.     if "hARQ" echo "MNP Connected";  handshake both; goto arq
  166.     if "hREL" echo "MNP Connected";  handshake both; goto arq;
  167.     if "hERROR-CONTROL" echo "HV Connected";  handshake both; goto arq
  168.     if js2,mnp set s2 ""
  169. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  170.     if "1||10" sp 300 goto mm2end
  171.     if 5 sp 1200 goto mm2end
  172.     if 6 sp 2400 goto mm2end
  173.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  174.     if "7||12" sp 19200; goto mm2end
  175.     if 11 sp 19200; goto mm2end
  176. sorry:    echo "No Connect Message Detected."
  177.     : if iMODEM,TB sleep 10; pat; pat 1 OK; putw "ATN?\r" wait
  178.     if iMODEM,C2400E if %s1 putw "ATZ\r"
  179.     if %s4 echo "Attempting %s4";  speed s0;  goback mm2l
  180.     pat; bye; bye; fail
  181. mm2end:    pat
  182.         if js1,mnp sleep 15    : for gliches in MM224E
  183.     sets telno %s3        : Telephone number we connected to
  184.     if !js2,nodel queue delete
  185.     return
  186.  
  187.  
  188. askspd    lput "1200 baud?"; if y sp 1200; return
  189.     lput "2400 baud?"; if y sp 2400; return
  190.     lput "4800 baud?"; if y sp 4800; return
  191.     lput "9600 baud?"; if y sp 9600; return
  192.     lput "19200 baud?"; if y sp 19200; return
  193.     lput "300 baud then."; sp 300; return
  194. callcis    speed 1200
  195.     if %s3 sets telno %s3; gosub tryd; if c sleep 20 put \3 return
  196.     speed 300
  197.     if %s2 sets telno %s2; gosub tryd; if c sleep 20 put \3 return
  198.     sp 1200
  199.     if %s5 sets telno %s5; gosub tryd; if c gosub tym12; return
  200.     if %s4 sets telno %s4; gosub tryd; if c gosub tel12; return
  201.     echo "Sorry, none of the numbers are working right now"
  202.     gosub ak
  203.     fail
  204. tel12    pat 1 TERMINAL
  205.     while "c&&!1" put "\r" wait -f2
  206.     if !c fail
  207.     pat 1 @
  208.     put "D1\r"; wait -f40
  209.     if !c fail
  210.     if !1 o fail
  211.     put "C 202202\r"
  212.     return
  213. tym24    wait -f5
  214.     in !c fail
  215.     put A pat 1 "log in"; wait
  216.     put "%s1\r"; return
  217. tym12    pat 1 x; wait
  218.     if !c fail
  219.     put A pat 1 "log in"; wait
  220.     if !c fail
  221.     put "%s1\r"; return
  222. xsetup    port 1; : if !c speed 1200 putw "ATZ\r"
  223.     pd1; pz480    : turn on time stamping, set PST timezone
  224.     set mprefix ATDP    : Pulse Dial
  225.     : set mprefix ATDT    : Tone Dial
  226.     set mcommand "gosub mm224"
  227.     : set mcommand "gosub dial"
  228.     set l "1"; set m "1"
  229.     set answerback "\r\nYOUR NAME CITY\r\n\21"
  230.     : ps8 :set C/G status line attribute to dim
  231.     : set phones "c:/phones.t"
  232.     echo "Resetting Function Keys"; reskeys
  233.     set f3 @rb;  set f4 "@echo Working...;  gosub tlearn"
  234.     set f6 "@accept s2 Receive-File: rc %s2"
  235.     set f7 "@accept s1 Send-File: sx %s1"
  236.     : set f8 "\PXXXXX"
  237.     : accept xpassword "\E[mMaster Password: \E[8m"; lput "\E[m"
  238.     set f9 "@gosub add"
  239.     if fyamhelp.t set helpfile "yamhelp.t"; set f10 "@help"
  240.     if f/zmanh.hlp set helpfile "@!yhp /zmanh.hlp zmain"; set f10 "@help"
  241.     if fzmanh.hlp set helpfile "@!yhp zmanh.hlp zmain"; set f10 "@help"
  242.     set fs1 "@find speed %phones"
  243.     set fs2 "@accept s1 Name:; find \n%s1 %phones"
  244.     set fs3 "@find \\\;\r %phones"
  245.     set fs4 "@speed 1200 putw ATH\r"
  246.     set fs5
  247. @accept s1 "System name to call: "; queue add " call %s1"; queue list
  248.     set fs6
  249. @lput "Queue Entries:\n"; queue list; echo "Working..."; queue run
  250.     : display bell=visual
  251.     set emdir /memo; set twxfile twx;
  252.     : set call1 ATZ\r\336ATZ\r
  253.     set call2
  254. @bye; sleep 3; putw "ATZ\r"; sleep 5; putw "ATX1 M0 S0=1\r"; clears
  255.     : (AT commands above are repeated to make sure modem obeys them)
  256.     : set callpath /tmp/*.xx?
  257.     set outahost
  258. @bye; putw "ATZ\r"
  259.     :::  DO NOT USE BACKSLASHES FOR FILENAMES
  260.     : set calllog c:/calllog
  261.     : set rxlog c:/tmp/rxlog
  262.     : set txlog c:/tmp/txlog
  263.     : set tmp /yam/tmp
  264.     : set lib /yam/lib
  265.     set quitcmd \003\336off\r
  266.     if dc ps4 pn3 pr97    :if RGB, cyan, red stat, color rev video
  267.   : if dc ps11 pn14 pr30 :if RGB, yellow on black & rev. blue /w lt. bl. status
  268.     return
  269. setup    echo "Running ..."
  270.     set mprefix ATDP    : Pulse Dial
  271.     : set mprefix ATDT    : Tone Dial
  272.     p-1; set mcommand "gosub dial"
  273.     if da>1 goto setu1
  274.     if !flocal.t gosub sinit; gosub .local.t; goto setu1
  275.     gosub .local.t
  276.     echo "Hello %s6 %s7."
  277.     lput "Has your phone number or port configuration changed\r\n"
  278.     lput "since the last time you entered your name (y/n) ?"
  279.     if y del local.t; gosub sinit; gosub .local.t
  280.     if c gosub carrier
  281. setu1:    if dd pd1; pz480
  282.     pe0
  283.     set f3 @rb;  set f4 "@echo Working...;  gosub tlearn"
  284.     set f5 "@accept s1 Send-File(s): sz %s1"
  285.     set f6 "@accept s2 Receive-File: rc %s2"
  286.     set f7 "@accept s1 Send-File: sx %s1"
  287.     : set f8 "\PXXXXX"
  288.     set f9 "@gosub add"
  289.     set fs1 "@find speed %phones"
  290.     set fs2 "@accept s1 Name:; find \n%s1 %phones"
  291.     set fs3 "@find \\\;\r %phones"
  292.     set fs4 "@speed 1200 putw ATH\r"
  293.     set fs5
  294. @accept s1 "System name to call: "; queue add " call %s1"; queue list
  295.     set fs6
  296. @lput "Queue Entries:\n"; queue list; echo "Working..."; queue run
  297.     if fyamhelp.t set helpfile "yamhelp.t"; set f10 "@help"
  298.     if f/zmanh.hlp set helpfile "@!yhp /zmanh.hlp zmain"; set f10 "@help"
  299.     if fzmanh.hlp set helpfile "@!yhp zmanh.hlp zmain"; set f10 "@help"
  300.     if da>1 return
  301.     : return : uncomment this line to remove automatic menu startup
  302.     sets menu %phones
  303.     cls; goto cmdch
  304. demo    cls
  305. cmdch:    pv0; echo " ZCOMM Beginner's Menu "
  306.     display nlmode nooverstrike
  307.     lput "\ns  Generate a script with AI \E[1mTurboLearn Script Writer\E[m(Tm)\n"
  308.     if fnewscr.t lput "e  Execute your new script in newscr.t\n"
  309.     lput "f  Flash-up HELP Processor\n"
  310.     lput "a  Add a new system entry to the Telephone Directory\n"
  311.     lput "c  Compuserve Online Demo (requires modem)\n"
  312.     lput "d  Dial telephone number and connect\n"
  313.     lput "g  Go Local (Direct Connection)\n"
  314.     lput "h  Host Operation demo (dial-in)\n"
  315.     lput "l  List file names in current directory\n"
  316.     lput "n  Newest files listed first\n"
  317.     if !dS lput "o  Display Ordering Information\n"
  318.     lput "r  Review (circular buffer search/cut/paste) demo\n"
  319.     lput "t  Call Telegodzilla (Omen's Software Downloading System)\n"
  320.     lput "u  Utility command demo\n"
  321.     lput "x  eXit to DOS\n"
  322.     lput "z  exit to ZCOMM command prompt\n\n"
  323.     display nonlmode
  324. choos:    acceptl1 s1 "Please enter your menu choice "
  325.     if is1,a gosub add; cls; goback cmdch
  326.     if is1,c call cidemo; cls; goback cmdch
  327.     if is1,d call xdnum; cls; goback cmdch
  328.     if is1,e call .newscr.t;  goback choos
  329.     if is1,f help; goback cmdch
  330.     if is1,g call glocal; cls; goback cmdch
  331.     if is1,h gosub host; host; return
  332.     if is1,l dirr; goback choos
  333.     if is1,n dirt; goback choos
  334.     if is1,o gosub order; goback choos
  335.     if is1,r kill; gosub review; goback choos
  336.     if is1,s echo "Working...";  gosub tlearn; acceptl1 s0 "Hit Enter ";  goback cmdch
  337.     if is1,t call telegodzilla; cls; goback cmdch
  338.     if is1,u gosub udemo; cls; goback cmdch
  339.     if is1,x x
  340.     if is1,y goto quitt
  341.     if is1,z goto quitt
  342.     cls; echo "Unknown Command"; goback cmdch
  343. udemo:    cls;  echo "Enabling debug output to show the commands"; pv4
  344.     echo "The find command searches files for a string, case insensitive"
  345.     find zcom *.t
  346.     gosub ak
  347.     echo "The sum command calculates Unix compatible file checksums"
  348.     sum local.t
  349.     gosub ak
  350.     echo "Word Count: lines, words, printing characters, and characters"
  351.     echo "The count of printing characters predicts ribbon usage!"
  352.     wc *.t
  353.     gosub ak
  354.     echo "The crc command calculates a 32 bit file CRC useful for comparing"
  355.     echo "Multiple copies of the same file for accurcacy and identity."
  356.     echo "(Compatible with PKZIP's CRC)"
  357.     crc local.t
  358.     gosub ak
  359.     cls
  360.     echo "Paced upload transmission demonstration"
  361.     echo "File Upload pacing is used with bulletin boards, etc."
  362.     echo "Note the EXTRA delay at the end of each line"
  363.     display nooverstrike
  364.     open %phones
  365.     echo "Let's just send a little bit from the END of the file"
  366.     seek -120
  367.     ph2; o; t -adhxtp
  368.     close; pv0; dis -dah
  369.     gosub ak
  370.     return
  371.  
  372. 73    speed 1200 %l-603-924-9809 t
  373. amrad-bbs    speed 2400 %l-703-734-1387 t
  374. amsat-bbs    speed 300 %l-512-852-8194 t
  375. caf        speed 1200 %s8-3406\;
  376. cidemo    speed 1200 set s1 "cis02"; gosub callcis
  377.     pat 0 OK;
  378.     pat 1i ID:
  379.     pat 2 "please log in: "
  380.     pat 3 "DISCONNECTED"
  381.     pat 4 "?? LOG"
  382.     pat 5i "more !"
  383.     pat 6$ "!"
  384.     pat 7i "continue!"
  385.     wait;  put 77770,101\r
  386.     pat 1i assword:; wait; if !1 goto cid2
  387.     echo "Sending PASSWORD"; put FREE-DEMO\r
  388.     wait
  389. cid2:    if "3||2" echo " Login may be possible through a Compuserve Node "
  390.     if "1||4||3||2" echo " Try Again Later "; o; sleep 50; return
  391.     pat;
  392.     pat 1i "menu !"
  393.     pat 2i "page !"
  394.     pat 3i "choice !"
  395.     pat 4i "continue!"
  396.     pat 5i "more !"
  397.     pat 6$ "!"
  398.     put \25s\r
  399.     wait put "\025t\r"
  400.     wait put "\0253\r"
  401.     wait put "\025s 1\r"
  402.     wait put "\025log\r"
  403.     pat 1i ID:
  404.     wait -f5
  405.     echo "Good Bye Cruel World"
  406.     close
  407.     o
  408.     gosub ak
  409.     gosub review
  410.     return
  411. review    if !fcdemo echo "Sorry, the file \"cdemo\" is missing."; return
  412.     kill; read cdemo
  413.     del cut
  414.     <revv
  415.     review
  416.     echo "Let's play with that file."
  417.     echo "First, a word count"
  418.     wc cut
  419.     echo "Next, 32 bit file CRC, then a Unix style checksum"
  420.     crc cut; sum cut
  421.     sleep 100
  422.     return
  423.  
  424. cis    speed 2400 nolog 239-6124
  425.     pat 1i "^"
  426.     while !1&&L<8 wait -f2 if !1 echo "Sending ^C" put "\3"
  427. cis:    lput "\E[H\E[2J"
  428.     lput "SIG Download Browse hot keys: F3=B Protocol F8=XMODEM F7=capture"
  429.     lput "\E[2;24r\E[?6h\E[H"
  430.     pat 1 ID:; wait
  431.     put 70001,0001\r pat 1 assword:; wait; put "wrongo\r"
  432.     pat 1 OK; pat 2 Plex!; pat 3 "\nFunction: "; pat 4 "!"
  433.     set f3 "@source %lib/kcisdl.t"
  434.     set f7 "@source %lib/ckcisdl.t"
  435.     set f8 "@source %lib/xkcisdl.t"
  436.     wait
  437.     if n o return
  438.     pat; t -fcs!p
  439.     return
  440. cis02    speed 2400 nolog 222-2151    : Compuserve via Tymnet 2400 bps
  441.     pat 1i x; wait -f5 put A pat 1 "log in"; wait
  442.     put "cis02;"; goto cis
  443. cis02    speed 1200 nolog 222-0900    : Compuserve via Tymnet
  444.     pat 1i x; wait put A pat 1 "log in"; wait
  445.     put "\030cis02;" goto cis
  446. cisdat    speed 1200 %l-604-687-7144    : Compuserve via Datapac
  447.     sleep 25
  448.     ena -t
  449.     put "..\r"
  450.     pat 1 "DATAPAC"
  451.     wait -f4
  452.     put "P 29400138\r"
  453.     dis -t
  454.     pat 1 "Name:"
  455.     wait -f20
  456.     put "cis\r"
  457.     goto cis
  458. cistel    speed 1200 295-3028        : Compuserve via Telenet
  459.     pat 1 TERMINAL
  460.     while !1 put "\r" wait -f1
  461.     pat 1 @
  462.     put "D1\r"; wait -f4
  463.     if !1 o abort
  464.     put "C 202202\r"
  465.     goto cis
  466.  
  467. navobsy        speed 1200 %l-202-653-1079 t -u7e
  468.     echo " type @tco for list of commands "
  469. nbs        speed 300 %l-301-948-5717 t
  470. nbs2        speed 300 %l-301-948-5718 t
  471. oem        speed 1200 %s8 pat 1i \5;wait;put \1;sb;o
  472. omen-tech    speed 1200 %s8 t
  473. pl24    speed 2400 241-0496 goto pl1    : People-Link via Telenet
  474. pl    speed 1200 295-3028        : People-Link via Telenet
  475. pl1:    patt; patt 1 TERMINAL
  476.     while !1 put "\r" wait -f1
  477.     pf40 patt 1 @
  478.     put "D1\r"; wait
  479.     if !1 o abort
  480.     put "set 0:33,64:1\r"; wait -f1
  481.     put "c 312 63\r"
  482.     pat 1 "PRESS <RETURN>:";  wait -f15;  put "\r"
  483.     pat 1 "ID:";  wait -f15;  put "myacct\r"
  484.     pat 1 "PASSWORD:";  wait -f15;  put "nothis\r"
  485.     set f9 "/next\r"; set f10 "/dlo;fil;xmo;\r\r"
  486.     t
  487. source1200    speed 1200 295-3028    : The Source via Telenet
  488. sourcex:    set  f7 "upi n b "
  489.     set  f9 "upi n g "
  490.     set f8 ",-,*,rb"
  491.     set f10 ",-,*,sb"
  492.     pf3
  493.     patt; patt 1 TERMINAL
  494.     while "L<5&&!1" put "\r" wait -f1
  495.     if !1 off
  496.     pf40 patt 1 @
  497.     put "D1\r"; wait
  498.     if !1 o abort
  499.     put "c 30124\r"
  500.     kill; patt; patt 1 SOURCE; wait
  501.     if !1 o abort
  502.     putw "id ABC123 notthis\r"
  503.     patt; pat 10c "-More-" "@put \r lput \r\E[A\E[2M\E[A"
  504.     pf9999; wait
  505. source300    speed 300 295-3028    : The Source via Telenet
  506.     goto sourcex
  507. telegodzilla    speed 1200 %s8-3746
  508.     ena -Z; display overstrike; cls
  509.     pat 1 "ease:"; wait -f20
  510.     if !1||!c echo "Access Failed"; o; return
  511.     put "\b\b%s6 %s7\r"; pat 1 ect;wait -f2
  512.     put "y"; pat 1 "-Host"; wait -f5
  513.     set s0 "TeleGodzilla"
  514. tele1:    echo "You are now Online to \42%s0\42."
  515.     echo "Type F1 when done."; pat;  t -Z!vn
  516.     lput "\Ez Do you wish to disconnect (y/n) "
  517.     if y echo " Disconnecting ... ";put \25\4; wait -f2; o; return
  518.     echo " **************  Rewinding the Capture Buffer  ************** "
  519.     rewind; wait -f0; goto tele1
  520.  
  521. vms    speed 9600;  display vt100;  set bs "\177";  set rubout "\b";  z pd30
  522.     t
  523.  
  524. host    echo " host " speed 1200
  525.     set welcome welcome.txt
  526.     set password Ritchie
  527.     set challenge challeng.txt
  528.     set unrestrict "CustomerSupport"    : WARNING - CHANGE THIS!!
  529.     set xhelpfile xyamhelp.t
  530.     set private private; set messages messages
  531.     set emdir "."; set twxfile twx;
  532.     set call2 ATZ\r\336\336ATM1X1S0=1\r\336ATM1X1S0=1\r\336\336
  533.     set outahost "@pk512; putw ATM0H1\r"
  534.     set baudstr "@gosub baud"
  535.     pc40
  536.     return
  537.  
  538. sinit    pv0;  cls
  539.     echo "    Initial setup for ZCOMM with ZMODEM, WXMODEM, etc.        "
  540.     echo "             I need some phone information.                    "
  541.     accept s6 " Your \E[1mFirst\E[0m name please "
  542.     accept s7 " Your Last name please "
  543.     set s8 ""
  544. getac:    accept s8 " Please enter your 3 digit telephone area code, plus <Enter> "
  545.     if !%s8 goto getac
  546.     echo "I need access numbers for the Compuserve Information Service."
  547.     : if dd lput "Shall I search for them (y/n) ?"
  548.     : if dd if y echo "300/1200 bps Access Numbers"; find "%s8 " cisnodes.lst
  549.     echo "Just hit <Enter> if your modem doesn't have the indicated speed."
  550.     accept s3 " Please enter the 1200 baud local Compuserve Node phone Number "
  551.     accept s2 " Please enter the 300 baud local Compuserve Node phone Number "
  552.     accept s5 " Please enter the 1200 baud local Tymnet Node phone Number "
  553.     accept s4 " Please enter the 1200 baud local Telenet Node phone Number "
  554.     echo "Creating disk file 'LOCAL.T' for future reference"
  555.     kill; pv0; create -y local.t
  556.     echof " :Area Code is \042%s8\042"
  557.     if %s2 echof " set s2 \042%s2\042"
  558.     if %s3 echof " set s3 \042%s3\042"
  559.     if %s4 echof " set s4 \042%s4\042"
  560.     if %s5 echof " set s5 \042%s5\042"
  561.     if %s6 echof " set s6 \042%s6\042"
  562.     if %s7 echof " set s7 \042%s7\042"
  563.     echof " set s8 1-503-621"
  564.     lput "\EzAre you using a Color Monitor? (y/n) "
  565.     if y echof " if dd&&dc ps4 pn3 pr97 pu6"; ps4 pn3 pr97 pu6
  566.     lput "\r\nIs your display adapter flicker/snow free? (y/n) "
  567.     if y echof " if dd&&dc display warpdrive"; display warpdrive
  568.     lput "\r\nIs your modem connected to COM2? (y/n) "
  569.     if y echof " port 2"; port 2
  570.     lput "\r\nDo you use DTMF (TouchTone) dialing? (y/n) "
  571.     if y echof " set mprefix ATDT"
  572.     lput "\r\nDoes your modem include 2400 bps or higher? (y/n) "
  573.     if y echof " set mcommand \"gosub mm224\""; set mcommand "gosub mm224"
  574.     close; echo "file created"
  575.     if dd echo "Searching for directory entries with your area code"
  576.     if dd find l-%s8- %phones
  577.     if dd echo "Please change the %phones lines shown above to suit your area."
  578.     if !is8,503 return
  579.     kill; pv0; create -+ local.t
  580.     lput "Is 621-3746 (Burlington Exchange) a local call for you ? (y/n) "
  581.     if y echof " set s8 621"
  582.     else echof " set s8 1-621"
  583.     close; return
  584. quitt:    echo "   Type 'menu' to return to this menu   "
  585.     if Jf10,@ echo "       Press F10 for Flash-Up Help      "
  586.     echo "\n\n  The following ABORT message is normal "
  587.     abort
  588. carrier    lput " Type \ESy\Eq if the modem is now connected to a computer: "
  589.     if y echo "OK, just checking"; sleep 30; return
  590.     lput "\r\n\nAlthough ZCOMM can operarte with the modem's\r\n"
  591.     lput "Carrier Detect signal always on, this script (and most other\r\n"
  592.     lput "scripts) require the Carrier Detect signal to read the actual\r\n"
  593.     lput "modem status.  Please adjust the modem accordingly; on the Hayes\r\n"
  594.     lput "SmartModem 1200, switch 6 should be UP. "
  595.     off
  596. xdnum    cls
  597.     if jmcommand,mm224 sp 2400; goto xd1
  598.     lput "Use 2400 Baud (y/n) ? "
  599.     if y speed 2400;  goto xd1
  600.     lput "Use 300 Baud (y/n) ? "
  601.     if y speed 300; goto xd1
  602.     speed 1200;  echo "1200 Baud, then."
  603. xd1:    accept telno "Enter Telephone Number: "
  604.     if !%telno return
  605.     if Jmcommand,2 gosub mm224
  606.     if Jmcommand,l gosub dial
  607.     sets s0 "%telno"
  608.     goto tele1
  609. glocal    cls;  display nonlmode
  610.     lput "Use Port 2 (y/n) ?"
  611.     if y port 2
  612.     else port 1
  613.     gosub askspd
  614.     set s0 "Local"
  615. tele9:    echo "You are now Online to %s0."
  616.     echo "Type F1 when done."; pat;  t -Z!v
  617.     lput "\Ez Finished talking now (y/n) "
  618.     if y goto tele2
  619.     echo " **************  Rewinding the Capture Buffer  ************** "
  620.     rewind; wait -f0; goback tele9
  621. tele2:    lput "\Ez Do you wish to disconnect (y/n) "
  622.     if y echo " Disconnecting ... ";put \25\4; wait -f2; o
  623.     source local.t
  624.     return
  625. order    if forder display overstrike; page order; return
  626.  cls display overstrike
  627.  lput "ZCOMM Registration, Typeset Manual Pages, ZSNP, and update disk sell for $40.00.\r\n"
  628.  lput "                 (Add $10 if you wish a PC-size binder)\r\n"
  629.  lput "\r\n"
  630.  lput "       Send check to Omen Technology, PO Box 4681, Portland OR 97208\r\n"
  631.  lput "Please see Chapter 3 of the ZCOMM User's Manual for more information."
  632.  lput "\r\n"
  633.  return
  634. baud    pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
  635.     pat 5 "CONNECT 1200\r\n"; pat 3 "CONNECT 2400\r\n"
  636.     pe-20
  637.     wait -Ef25
  638.     dis -E
  639.     if 1 speed 300 return
  640.     if 5 speed 1200 sleep 20 return
  641.     if 3 speed 2400 sleep 20 return
  642.     kill create -+ rings
  643.     close
  644.     fail
  645.  
  646.     : inittb initializes the TrailBlazer NVRAM for these scripts
  647.     : It may be necessary ot change the 9600 speed below if the
  648.     : NVRAM has been set to a strange value by somebody else
  649. inittb    sp 9600; ena -t; gosub waketb
  650.     putw "aaaaat&F S0=0 S7=45 S50=0 S52=1 S53=1 S54=1 S58=3 S68=3\r\336\336"
  651.     putw "AAAATS51=255 \r\336\336"
  652.     putw "aaaatS111=255 S95=0 S92=1 S52=2\r\336\336"
  653.     putw "aaaATJ6S39=3\r\336\336"    : MNP bugfix magic incantation
  654.     putw "aaaAT&W\r\336\336"
  655.     return
  656.  
  657.     : initmm initializes the MultiTech error correcting 224 NVRAM 
  658. initmm    speed 2400;  pat; pat 0 OK; pat 1 ERROR
  659.     put "AT &C1 E1 V1 X4 B1 &E0 S0=0 S7=45 S11=80 Q0\r"; wait -f5
  660.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  661.     put "AT &D3 &C1 &T5 &E10 \44BA1 &B1\r"; wait -f5
  662.     put at&w\r; wait -f5
  663.     return
  664.  
  665.     : initc24e initializes the US Robotics Courier 2400E
  666. initc24e    speed 2400;  pat; pat 0 OK; pat 1 ERROR
  667.     put "AT &F E1 V1 X6 B1 &G0 &Y1 S0=0 S7=45 S11=80 Q0\r"; wait -f5
  668.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  669.     put at&w\r; wait -f5
  670.     return
  671.  
  672.     : inithv96 initializes the Hayes V9600 NVRAM 
  673. inithv96    bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  674.     set s1 "K4"; if dF set s1 "K3"
  675.     put "AT &F V1 X4 W1 B1 &K0 &Q5 S36=1 S37=0 S0=0 S7=45\r"; wait -f5
  676.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  677.     put "AT &D3 &C1 &R1 &%s1 &T5 &W0 &Y1 &W0\r"; wait -f5
  678.     return
  679.  
  680.     : initfc initializes a Fastcomm 2496t high speed modem
  681. initfc    sp 9600; gosub waketb
  682.     putw "AT #LDN #LCN S57=2 #W\r";  return
  683.  
  684.     : initsm initializes a Hayes Smartcom 2400
  685. initsm    putw "at &c1 &d2 x3 v1 e1 q0 &s1 s7=45\r"; sleep 5; putw at&w\r
  686.     return
  687.  
  688.     : initax9624 inits a Microcom AX/9624c MNP Class 6 modem    
  689. initax9624    bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  690.     set s1 "\\Q1"; if dF set s1 "\\Q3"
  691.     put "AT &F V1 \\V1 &D3 Q0 E1 &C1 \\N0 X4 %s1 S0=0 S7=45\r"; wait -f5
  692.     if 1 echo "ERROR: Reset the modem and retry this script"; abort
  693.     put "AT &W\r"; wait -f5
  694.     return
  695.  
  696.  
  697.     :: Generate a script with TurboLearn Script Writer(TM)
  698. tlearn    set fa10 "" :: telephone number, and flag that telno was entered
  699.     if c goto connected
  700.     cls
  701.     accept fa10 "Enter Telephone Number "
  702. ag1:    accept fa1 "Enter Speed (300, 1200, 2400) "
  703.     if ifa1,2400 speed 2400 goto ag2
  704.     if ifa1,1200 speed 1200 goto ag2
  705.     if ifa1,300 speed 300 goto ag2
  706.     echo "Bad speed"; goback ag1
  707. ag2:    lput "\r\n1    System uses IBM PC (ANSI) line drawing characters\r\n"
  708.     lput "2    System uses 7 bits even parity\r\n"
  709.     lput "3    System uses 8 bits No parity (8n1)\r\n"
  710.     lput "\r\n"
  711.     acceptl1 fa2 "Choose one of the above: "
  712.     lput "\r\n"
  713.     ena -8n
  714.     @%fa10
  715.     if !c echo "Sorry, no connection"; return
  716.     set fa5 ""
  717.     if ifa2,1 ena -8g; set fa5 "ena -8g"
  718.     if ifa2,2 ena -7e; set fa5 "ena -7e"
  719. connected:
  720.     echo "Finish with F1.  Use ALT-B to send a break if necessary"
  721.     learn -y tlrn.tmp
  722. cn2:    if !r echo "WARNING: Learning (recording) terminated prematurely!"
  723.     close
  724.     kill
  725.     create newscr.t
  726.     if !r abort
  727.     echo "Is this to become a Telephone Directory entry (y/n)?"
  728.     if !y goto nodir
  729.     accept fa6 "What directory entry name to use? "
  730.     echoc "%fa6    speed %fa1 %fa10 %fa5"
  731. nodir:    close;  set fa2 ""
  732.     echo "Should the script disconnect the phone line (y/n) ?"
  733.     if !y "!tlearn tlrn.tmp >>newscr.t"; goto scdone
  734.     set fa2 "bye;  return"
  735.     echo "Should the script then exit to the Operating System (y/n)?"
  736.     if y  set fa2 "off"
  737.     !tlearn -r tlrn.tmp >>newscr.t
  738.     create -+ newscr.t; echof "    %fa2";  close
  739. scdone:    echo "Your new script is in the file 'newscr.t' !!"
  740.     if %fa10 echo "You may add this file to your Telephone Directory"
  741.     if %fa10 echo "Or execute it with 'call %fa6.newscr.t'";  return
  742.     echo "You may execute this file with 'source newscr.t'"
  743.     return
  744.  
  745.     :: Add a telephone directory entry
  746. add    if r close
  747.     cls
  748.     echo "Create New Phone Directory Entry"
  749. xg0:    accept fa3 "Enter new directory name: "
  750.     p?0
  751.     lput "Searching for duplicate name"
  752.     find "\n%fa3" %phones
  753.     if ? echo "Please choose another name"; goback xg0
  754.     accept fa4 "Enter Comments for this number: "
  755.     accept fa10 "Enter Telephone Number: "
  756. xg1:    accept fa1 "Enter Speed (300, 1200, 2400, 9600, 19200): "
  757.     if ifa1,19200 speed 2400 goto xg2
  758.     if ifa1,9600 speed 2400 goto xg2
  759.     if ifa1,2400 speed 2400 goto xg2
  760.     if ifa1,1200 speed 1200 goto xg2
  761.     if ifa1,300 speed 300 goto xg2
  762.     echo "Bad speed"; goback xg1
  763. xg2:    lput "\r\n1    System uses IBM PC (ANSI) line drawing characters\r\n"
  764.     lput "2    System uses 7 bits even parity\r\n"
  765.     lput "3    System uses 8 bits No parity (8n1)\r\n"
  766.     lput "\r\n"
  767.     acceptl1 fa2 "Choose one of the above: "
  768.     lput "\r\n"
  769.     set fa5 ""
  770.     if ifa2,1 set fa5 " -8g"
  771.     if ifa2,2 set fa5 " -7e"
  772.     kill; pv0; create -+ %phones
  773.     if !%fa4 goto nobanr
  774.     echoc "%fa3    speed %fa1 echo \42%fa4\42 %fa10 t%fa5"
  775.     close; return
  776. nobanr:    echoc "%fa3    speed %fa1 %fa10 t%fa5"
  777.     close; return
  778.  
  779.     :: Login script for Byte Information Exchange
  780. bix        speed 19200  222-2151+222-0900
  781.         pat 1 "log in"
  782.         pat 2 "error" "\r"
  783.         pat 3 "user name:"
  784.         pat 5 "host shut"
  785.         wait -f4; put "A"; wait -f2
  786.         set s9 "login"; pf15
  787. bix:        put "BIX\r"
  788.         pat 4i "ame?"; wait
  789.         if 5 fail
  790.         if "c&&!4" goback bix
  791.         if jargs,new put "new\r";  t; quit
  792.         put "accntname\r"
  793.         pat 1i "assword:"; wait
  794.         dis -h;  put "notthis\r"
  795.         if dZ zmodem pl8192    :: Temporary - see manual
  796.         if dZ ena -yZ        :: Disable ZMODEM Challenge to save time
  797.         if jargs,h ena -h
  798.         pat; pat 1$ "\n:"
  799.         wait
  800.         if "hYou have [*1-9]" source bixmaild.t
  801.         expand bixmailu.t 002*
  802.         if jargs,off off
  803.         t
  804.  
  805. genie        speed 1200 287-9045
  806.         lput "\E[H\E[2J"
  807.         lput "\E[1mDownload hot key: F3=XMODEM F8=OverThruster\E[m"
  808.         lput "\E[2;24r\E[?6h\E[H"
  809.         ena -7e; pat 1 "U#"
  810.         while "c&&L<8&&!1" put "\r" wait -f2
  811.         if !1 echo "No Response from Genie"; o; fail
  812.         pat 2 "PASS"
  813.         while !2 put "abc12345,\r"  wait -f5
  814.         put "abcd\r"
  815. gen3:        set f3 "@set s5 xx; source %lib/gekxdl.t"
  816.         set f8 "@set s5 x; source %lib/gekxdl.t"
  817.         pO20; if S>2400 pO40
  818.         ph2; ena -h
  819.         t; ret
  820. dial    pat
  821.     if "%telno<2" echo "Please do not use \"call dial\""; abort
  822.     bye
  823.     if "%mprefix<2" goto mandial
  824.     pat 9 K\r\n; ena -d
  825.     put "ATZ\r"; wait -f3; if !9 wait -f3
  826.     if !9 put "AT E1 Q0 S7=60 V1 X1\r"; wait -f3
  827.     if "!9&&S>1201" speed 1200 put "ATZ\r"; wait -f3; if !9 wait -f3
  828.     if "!9&&S>301" speed 300 put "ATZ\r"; wait -f3; if !9 wait -f3
  829.     if !9 put "AT E1 Q0 S7=60 V1 X1\r"; wait -f3
  830.     if !9 echo "No response From MODEM"; fail
  831.     sleep 4
  832.     put "ATS6=3 S8=4 S0=0\r" wait -f2
  833.     pat 1l CONNECT; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  834.     pat 0c ";"
  835.     dis -d
  836.     put %mprefix; putw %telno\r
  837.     if 0 wait -f30; accept s1 "Hit ENTER to Hang Up"; o; return
  838.     wait -f60
  839.     while "4&&!L>3" wait -f30
  840.     while "!c&&L<20" sleep 1    : Some modems are slow on carrier det
  841.     if 1 pat; return
  842.     if !9 bye
  843.     pat; bye; fail
  844.     echo "fail DIDN't FAIL!!"
  845. mandial:    echo "Please dial %telno, type 'y' when connected, 'n' if failed"
  846.     if y return
  847.     fail
  848.  
  849.